home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Just Call Me Internet
/
Just Call Me Internet.iso
/
com
/
computer
/
casio_st
/
prog_fx
/
divers
/
base_n.sha
< prev
next >
Wrap
Text File
|
1994-03-01
|
413b
|
19 lines
10 CLS:CLEAR
20 PRINT "1:(10>N) 2:(N>10)";
30 INPUT ":",I
40 IF I=1 THEN 50 ELSE 80
50 CLS:INPUT "BASE(N):",N,"NOMBRE(X):",C
60 A=N:F=N:B=10
70 GOTO 100
80 CLS:INPUT "BASE(N):",N,"NOMBRE(X):",C
90 B=N:A=10:F=0
100 E=INT(C/A):IF E=0 THEN 130
110 D=D+(C-E*A)*B^M
120 C=E:M=M+1:GOTO 100
130 D=D+C*B^M
140 IF F=0 THEN 170
150 PRINT "10>";A;":";D
160 GOTO 10
170 PRINT B;">10:";D
180 GOTO 10